home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / Miscellaneous / joydemo.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  212 b   |  14 lines
  1. OPEN "Extras:BasicDemos/Ball" FOR INPUT AS 1
  2.   OBJECT.SHAPE 1,INPUT$(LOF(1),1)
  3. CLOSE 1
  4. x=320 : y=100
  5. OBJECT.ON 1
  6. WHILE 1
  7.   OBJECT.X 1,x
  8.   OBJECT.Y 1,y
  9.   x=x+STICK(2)
  10.   y=y+STICK(3)
  11.    IF STRIG(3) THEN BEEP
  12. WEND
  13.  
  14.